perm filename ALFAB.VLI[VLI,LSP] blob sn#381926 filedate 1978-09-08 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(DE MINIMAX (X) 
C00003 ENDMK
CāŠ—;
(DE MINIMAX (X) 
  (IF (ATOM X) X
      (GM -10000 X)))

(DE GM (ALF L)
  (IF (NULL L) ALF
      (GM (MAX ALF (MINUS (MINIMAX (CAR L)))) (CDR L))))

(SETQ TEST1 '
  ( ( (8 7 3) (9 1 6) (2 4 1) )
    ( (1 3 5) (3 9 2) (6 5 2) )
    ( (1 2 3) (9 7 2) (1 6 4) )
  ))